home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / procptrdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  344 b   |  21 lines
  1. program ProcPtrDemo (Output);
  2.  
  3. type
  4.   ProcPtr = ^procedure (Integer);
  5.  
  6. var
  7.   PVar : ProcPtr;
  8.  
  9. procedure WriteInt (i : Integer);
  10. begin
  11.   WriteLn ('Integer: ', i : 1)
  12. end;
  13.  
  14. begin
  15.   { Let PVar point to function WriteInt }
  16.   PVar := &WriteInt;
  17.  
  18.   { Call the function by dereferencing the function pointer }
  19.   PVar^ (12345)
  20. end.
  21.